home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 February: Tool Chest / Dev.CD Feb 94.toast / Tool Chest / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / PIIGSIncludes / LineEdit.p < prev    next >
Encoding:
Text File  |  1993-06-15  |  3.2 KB  |  97 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: LineEdit.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-93
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT LINEEDIT;
  11. INTERFACE
  12. USES TYPES,QUICKDRAW,EVENTS;
  13. CONST
  14.  
  15.  
  16. { Error Codes }
  17. leDupStrtUpErr = $1401;  { duplicate LEStartup call }
  18. leResetError = $1402;  { can't reset Line Edit }
  19. leNotActiveErr = $1403;  { Line Edit not active }
  20. leScrapErr = $1404;  { desk scrap too big to copy }
  21.  
  22. { Justification Codes }
  23. leJustLeft = $0000;
  24. leJustCenter = $0001;
  25. leJustFill = $0002;
  26. leJustRight = $FFFF;
  27.  
  28. { LEClassifyKey result values }
  29. leKeyIsSpecial = $8000; { $06,$08,$15,$18,$19,$7F }
  30. leKeyIsNumber = $4000; { 0-9 }
  31. leKeyIsHex = $2000; { A-F }
  32. leKeyIsAlpha = $1000; { A-Z }
  33. leKeyIsNonControl = $0800; { $20-$FE }
  34.  
  35. TYPE
  36. LERecHndl = ^LERecPtr;
  37. LERecPtr = ^LERec;
  38. LERec = RECORD
  39.     leLineHandle : Handle;
  40.     leLength : Integer;
  41.     leMaxLength : Integer;
  42.     leDestRect : Rect;
  43.     leViewRect : Rect;
  44.     lePort : GrafPortPtr;
  45.     leLineHite : Integer;
  46.     leBaseHite : Integer;
  47.     leSelStart : Integer;
  48.     leSelEnd : Integer;
  49.     leActFlg : Integer;
  50.     leCarAct : Integer;
  51.     leCarOn : Integer;
  52.     leCarTime : Longint;
  53.     leHiliteHook : VoidProcPtr;
  54.     leCaretHook : VoidProcPtr;
  55.     leJust : Integer;
  56.     lePWChar : Integer;
  57. END;
  58. FUNCTION GetLEDefProc  : Ptr ;
  59. PROCEDURE LEActivate ( leRecHandle:LERecHndl)  ;
  60. PROCEDURE LEBootInit   ;
  61. PROCEDURE LEClick ( eventPtr:EventRecord; leRecHandle:LERecHndl)  ;
  62. PROCEDURE LECopy ( leRecHandle:LERecHndl)  ;
  63. PROCEDURE LECut ( leRecHandle:LERecHndl)  ;
  64. PROCEDURE LEDeactivate ( leRecHandle:LERecHndl)  ;
  65. PROCEDURE LEDelete ( leRecHandle:LERecHndl)  ;
  66. PROCEDURE LEDispose ( leRecHandle:LERecHndl)  ;
  67. PROCEDURE LEFromScrap   ;
  68. FUNCTION LEGetScrapLen  : Integer ;
  69. FUNCTION LEGetTextHand ( leRecHandle:LERecHndl) : Handle ;
  70. FUNCTION LEGetTextLen ( leRecHandle:LERecHndl) : Integer ;
  71. PROCEDURE LEIdle ( leRecHandle:LERecHndl)  ;
  72. PROCEDURE LEInsert ( textPtr:Ptr; textLength:Integer; leRecHandle:LERecHndl)  ;
  73. PROCEDURE LEKey ( theKey:CHAR; modifiers:Integer; leRecHandle:LERecHndl)  ;
  74. FUNCTION LENew ( destRectPtr:Rect; viewRectPtr:Rect; maxTextLen:Integer) : LERecHndl ;
  75. PROCEDURE LEPaste ( leRecHandle:LERecHndl)  ;
  76. PROCEDURE LEReset   ;
  77. FUNCTION LEScrapHandle  : Handle ;
  78. PROCEDURE LESetCaret ( caretProcPtr:VoidProcPtr; leRecHandle:LERecHndl)  ;
  79. PROCEDURE LESetHilite ( hiliteProcPtr:VoidProcPtr; leRecHandle:LERecHndl)  ;
  80. PROCEDURE LESetJust ( just:Integer; leRecHandle:LERecHndl)  ;
  81. PROCEDURE LESetScrapLen ( newLength:Integer)  ;
  82. PROCEDURE LESetSelect ( selStart:Integer; selEnd:Integer; leRecHandle:LERecHndl)  ;
  83. PROCEDURE LESetText ( textPtr:Ptr; textLength:Integer; leRecHandle:LERecHndl)  ;
  84. PROCEDURE LEShutDown   ;
  85. PROCEDURE LEStartUp ( userID:Integer; dPageAddr:Integer)  ;
  86. FUNCTION LEStatus  : Boolean ;
  87. PROCEDURE LETextBox ( textPtr:Ptr; textLength:Integer; rectPtr:Rect; just:Integer)  ;
  88. PROCEDURE LETextBox2 ( textPtr:Ptr; textLength:Integer; rectPtr:Rect; just:Integer)  ;
  89. PROCEDURE LEToScrap   ;
  90. PROCEDURE LEUpdate ( leRecHandle:LERecHndl)  ;
  91. FUNCTION LEVersion  : Integer ;
  92. FUNCTION LEClassifyKey ( eventPtr:EventRecord )  : Integer ;
  93.   INLINE $A2,$2514,$22,$E10000,$8F,'_toolErr';
  94.  
  95. IMPLEMENTATION
  96. END.
  97.